ug1 <- mutate(
  .data = ug1,
  # gender
  female = as.numeric(sex_q2_1 == 2),
  # age
  age = age_q2_3)

# Satisfaction with police
ug1cb$robbed_police_q11_5
ug1$police_satisfactory <- NA
ug1$police_satisfactory[ug1$robbed_police_q11_5 == 1] <- 0 
ug1$police_satisfactory[ug1$robbed_police_q11_5 == 2] <- 1
ug1$police_satisfactory[ug1$robbed_police_q11_5 == 3] <- 2
ug1$police_satisfactory <- ug1$police_satisfactory/2

# Support for mob violence 
ug1cb$truck_q15_4_1c
ug1cb$truck_q15_4_2c


ug1$support_mob_driver <- NA
ug1$support_mob_driver[ug1$truck_q15_4_1c == 1] <- 1
ug1$support_mob_driver[ug1$truck_q15_4_1c == 2] <- 0
ug1$support_mob_driver[ug1$truck_q15_4_2c == 1] <- 1
ug1$support_mob_driver[ug1$truck_q15_4_2c == 2] <- 0


